unit uSite;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfSite = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fSite: TfSite;

implementation

uses uCad_Obitos, UDM, Mask;

{$R *.dfm}

procedure TfSite.FormShow(Sender: TObject);
begin
  Edit2.Text := Cad_Obitos.DBEdit2.Text ;
  Edit3.Text := Cad_Obitos.DBEdit26.Text;
  Edit4.Text := DateToStr(dm.cds_ObitosDATA_FAL.AsDateTime);
  Edit5.Text := Cad_Obitos.DBEdit46.Text;
  Edit6.Text := Cad_Obitos.DBEdit7.Text; //Cad_Obitos.DBEdit10.Text + '-' +  Cad_Obitos.DBEdit11.Text;
  Edit7.Text := Cad_Obitos.DBComboBox5.text;
  Edit8.Text := Cad_Obitos.DBEdit24.Text ;
  Edit9.Text := FormatDateTime('t', dm.cds_ObitosHORA_SEP.AsDateTime);
  Edit10.Text := Cad_Obitos.DBEdit86.Text ;
  Edit11.Text := Cad_Obitos.DBEdit23.Text ;

 {
   Edit1.Text := 'http://funerariajs.com.br/inserir.php?nome=' + Cad_Obitos.DBEdit2.Text +
                                              '&cidade_falecimento=' + Cad_Obitos.DBEdit26.Text +
                                              '&data_falecimento=' + DateToStr(dm.cds_ObitosDATA_FAL.AsDateTime)+
                                              '&idade= ' +  Cad_Obitos.DBEdit46.Text +
                                              '&naturalidade= ' +  Cad_Obitos.DBEdit10.Text + '-' +  Cad_Obitos.DBEdit11.Text +
                                              '&estado_civil=' + Cad_Obitos.DBComboBox5.text +
                                              '&data_sepultamento= ' + Cad_Obitos.DBEdit24.Text +
                                              '&hora_sepultamento= ' + FormatDateTime('t', dm.cds_ObitosHORA_SEP.AsDateTime)  + // + DBEdit25.Text +
                                              '&velorio=' + Cad_Obitos.DBEdit23.Text +
                                              '&cemiterio= ' + Cad_Obitos.DBEdit26.Text ;

   Edit1.SelectAll;



   Edit1.CopyToClipboard;
  } 
end;

procedure TfSite.BitBtn1Click(Sender: TObject);
begin
   Edit1.Text := 'http://funerariajs.com.br/inserir.php?nome=' + Edit2.Text +
                                              '&cidade_falecimento=' + Edit3.Text +
                                              '&data_falecimento=' + Edit4.Text+
                                              '&idade= ' +  Edit5.Text +
                                              '&naturalidade= ' +  Edit6.Text +
                                              '&estado_civil=' + Edit7.Text +
                                              '&data_sepultamento= ' + Edit8.Text +
                                              '&hora_sepultamento= ' + Edit9.Text +
                                              '&velorio=' + Edit10.Text +
                                              '&cemiterio= ' + Edit11.Text ;

   Edit1.SelectAll;



   Edit1.CopyToClipboard;
end;

end.
